SIAD - Laborator nr. 8 


Folosirea Obiectului MSChart 


Elemente definitorii 

În sistemele de asistare a deciziilor, elementele grafice au o importanţă deosebită. Unul 
dintre controalele Visual Basic care este flexibil şi permite reprezentarea seriilor grafice este 
obiectul MSChart. Pentru a-l putea folosi este necesar ca mai întâi să-l includem în proiect prin 


din meniul Project/Components... 
Components 


x| 


Controls | Designers | Insertable Obiects | 


o 
L] 


Microsoft Chart Control 6.0 (OLEDB) 
| Location: 


C:WINNTYSystem32!mschrt20,.ocx | 


Kodak Image Scan Control 
Kodak Image Thumbnail Control 
LayoutDTC 1.0 Type Library 
Microsoft ActiveMovie Control 


[C] Microsoft ActiveX Plugin 
[C] Microsoft ADO Data Control 6.0 (SP4) (OLEDB) 


Microsoft Agent Control 2.0 


[C] Microsoft Analysis Server MDX Edit Control 1.0 
{| Microsoft Calendar Control 8.0 
soft Chart Control 6,0 (OLEDB) 


Microsoft Comm Control 6.0 


Microsoft Common Dialog Control 6.0 (SP3) a 
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Figura nr. 1 — Includerea controlului MSChart în proiect 


Ca urmare a acestei acţiuni, în cutia cu instrumente din Visual Basic va fi disponibil 


controlul pentru a fi plasat pe formular. 


Principalele proprietăţi ale controlului Chart sunt următoarele: 


Proprietate Semnificație 

ChartType Tipul de grafic (bidimensional, tridimensional, 
liniar, coloana, structura etc.) 

Column Coloana curenta 

ColumnCount Numărul de serii de date 

ColumnLabel Numele seriei de date (ex.: venituri, cheltuieli, 
profit etc.) 

Row Linia curenta din grafic 

RowCount Numărul de categorii (implicit R1, R2, ...) 


1 : ce . ` A ` . ” 
A nu se uita proverbul: “O imagine face cât o mie de cuvinte 
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RowLabel Numele categoriei 

DATA Valoarea curenta (linia n, coloana m) din sursa 
de date 

ShowLegend Afişează sau nu legenda 

TitleText Titlul graficului 

ChartData Sursa de date a graficului (de regulă o matrice 
bidimensională definită anterior şi populată cu 
date) 


Multe proprietăţi sunt accesibile prin pagina de proprietăți specifice obiectului MSChart 
(prin click dreapta pe control, la momentul proiectării, urmat de selecția opțiunii Properties din 
meniul contextual). 


m Grafice 


oaia : : ; Property Pages x| : 


EAE Backdrop | Text | Fonts | 
ieee Chart | Asis | AxisGrid | Series | SeriesColor | 
: : : : - = : ; m Chart Type Chart Options 

ieee @ 2D C 2 | Show legend 
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Figura nr. 2 — Proprietățile specifice obiectului de tip MSChart 


Valorile care vor fi reprezentate in grafic se recomanda a fi memorate in prealabil intr-o 
matrice (masiv) deoarece asocierea dintre elementele masivului şi seriile graficului se prezintă în 


felul următor: 
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Figura nr. 3 — Asocierea elementelor matricii cu seriile graficului 


Pentru a exemplifica modul simplu de utilizare a graficelor, se plasează pe formular două 
controale (Grafic, Grafic2) şi două butoane (cmdGrafic, cmdGrafic2): 
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Grafie_1 a pese Gia 2 


Figura nr. 4 -— Aspectul initial al formularului 


Secventele de cod aferente celor două butoane implementează diverse acţiuni asupra 
obiectelor de tip MSChart: 


Private Sub cmdGrafic_Click() 
‘initializarea datelor 

Dim sursa(5) As Integer 

sursa(1) = 10 

sursa(2) = 20 

sursa(3) = 10 

sursa(4) = 30 

sursa(5) = 50 


'lipirea sursei la grafic 
grafic 1.ColumnCount = 1 
grafic 1.ChartData = sursa 
graficl.Refresh 


End Sub 


Private Sub cmdGrafic2_Click() 
‘initializarea datelor 

Dim sursa(1 To 5, 1 To 2) As Integer 
sursa(1, 1) = 10 

sursa(2, 1) = 20 

sursa(3, 1) = 10 

sursa(4, 1) = 30 
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sursa(5, 1) = 50 


sursa(1, 2) = 40 
sursa(2, 2) = 60 
sursa(3, 2) = 80 
sursa(4, 2) = 100 
sursa(5, 2) = 120 


lipirea sursei la grafic 
grafic2.ColumnCount = 2 'numarul de serii ale graficului 
grafic2.ChartData = sursa 


rafinarea graficului 

stabilirea etichetelor pentru valorile seriilor 
grafic2.Row = 1 'pozitionarea pe prima linie din grafic 
grafic2.RowLabel = "1997" 

grafic2.Row = 2 'pozitionarea pe a doua linie din grafic 
grafic2.RowLabel = "1998" 


stabilirea numelor seriilor de date 

grafic2.ShowLegend = True 

grafic2.Legend.Location.LocationType = VtChLocationTypeBottom 
grafic2.Column = 1 
grafic2.ColumnLabel = "Venituri" 
grafic2.Column = 2 
grafic2.ColumnLabel = "Cheltuieli" 
'titlul graficului 

grafic2.Title = "Venituri si cheltuieli 
grafic2.Refresh 

End Sub 


Rezultatele care se obţin după acţionarea butoanelor de comandă se prezintă ca in figurile 
următoare: 


Asist. drd. Octavian Dospinescu 


IEN ipl) 
50 50 
40 40 
30 30 
20 20 
10 10 
0 0 
R1 


i Grafic_1 i Grafic_2 
Figura nr. 5 — Lansarea în execuţie a primului grafic 
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Figura nr. 6 — Lansarea în execuţie a celui de-al doilea grafic 


Exemplu folosire MSChart cu baza de date multidimensională 
Din meniul Project — Components se adauga Microsoft Chart Control 6.0. Se insereaza 
apoi obiectul pe ecran. 


Codul pentru conectare la MSOLAP se scrie intr-un modul extern form-ului. 


Se va obţine un grafic reprezentand evolutia vanzarilor pe familii de produse, pe cei doi 
ani. 
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Modul 1 


Public catBazadeDate As New ADOMD. Catalog 
Public cstProduse As New ADOMD.Cellset 
Public cstAni As New ADOMD.Cellset 

Public cstGrafic As New ADOMD.Cellset 


Public Sub OpenConection() 

catBazadeDate. ActiveConnection = "Provider=MSOLAP;Data Source=Localhost;" & _ 
"Initial Catalog=aflorin_teste;" 

cstProduse.Source = "Select {[Measures].[Store sales]! on columns," & _ 
"4[Produs].[ Product family].members} on rows " & _ 
"from cubl" 

cstProduse.ActiveConnection = catBazadeDate.ActiveConnection 

cstProduse.Open 

cstAni.Source = "select {[measures].[store sales]} on columns," & _ 
"{[timp].[year].members} on rows " & _ 
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"from cubl" 
cstAni.ActiveConnection = catBazadeDate.ActiveConnection 
cstAni.Open 


End Sub 


Public Sub CloseConection() 
cstRezultat.Close 
End Sub 


Form frmChart 


Private Sub Form_Load() 
Call OpenConection 
For i = 0 To cstProduse.Axes(1).Positions.Count - 1 
cboProduse.AddItem (cstProduse.Axes(1).Positions(i).Members(0).Caption) 
Next 
cboProduse.ListIndex = 0 
For i = 0 To cstAni.Axes(1).Positions.Count - 1 
cboAni.AddItem (cstAni.Axes(1).Positions(1).Members(0).Caption) 
Next 
cboAni.ListIndex = 0 
End Sub 


Private Sub Form_Unload(Cancel As Integer) 
Call CloseConection 
End Sub 


Private Sub cmdExit_Click() 
Unload Me 
End Sub 


Private Sub cmdGrafic_Click() 
Dim strInterogare As String 


strInterogare = "select {[measures].[store sales]} on columns," & _ 
" a 
For i = 0 To cstAni.Axes(1).Positions.Count - 1 
For j = 0 To cstProduse.Axes(1).Positions.Count - 1 
strInterogare = strInterogare & "([timp].[year].[" & _ 
cstAni.Axes(1).Positions(i).Members(0).Caption & "|," & _ 
"[produs].[product family].[" & _ 
cstProduse.Axes(1).Positions(j).Members(0).Caption & _ 


ele 
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Next 
Next 
strInterogare = Left(strInterogare, Len(strInterogare) - 1) 
strInterogare = strInterogare & "} on rows" & _ 
"from cubl" 
MsgBox (strInterogare) 


cstGrafic.Source = strInterogare 
cstGrafic.ActiveConnection = catBazadeDate. ActiveConnection 
cstGrafic.Open 


Dim aGrafic(6, 2) 
MSChart1 .chartTlype = VtChChartType2dBar 


For 1 = 0 To cstGrafic.Axes(1).Positions.Count - 1 
aGrafic(i + 1, 1) = Left(cstGrafic.Axes(1).Positions(i).Members(1), 6) & _ 
"" & cstGrafic.Axes(1).Positions(i).Members(0) 
aGrafic(i + 1, 2) = Int(cstGrafic.Item(0, 1)) 
Next 


MSChart1 .ChartData = aGrafic 

MSChart!.ColumnLabel = "Vanzari" 

MSChart1.RowLabel = "USD" 

MSChart1.Title = "Evolutia vanzarilor de produse" 

MSChartl.ShowLegend = True 

MSChart1.Legend.Location.LocationType = VtChLocationTypeBottomRight 


End Sub 


